#! /usr/bin/perl -w









    $ARGV[0] =~ s#/\*.*?\*/##g;
    @list = $ARGV[0] =~ /a.*?b/g ;
    print "@list\n" ;
